home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / tcp / Netdial4_0.lha / AmiTCP_Netdial4.0 / RXSER502.LHA / loadit.rexx next >
OS/2 REXX Batch file  |  1992-04-27  |  596b  |  27 lines
  1. /* load the rexxserial device library */
  2.  
  3. /* open the Rexx support library */
  4.  
  5. if ~show('L',"rexxsupport.library") then do
  6.    if addlib('rexxsupport.library', 0, -30, 0) then
  7.       say 'added rexxsupport.library'
  8.    else do;
  9.       say 'support library not available'
  10.       exit 10
  11.       end
  12.    end
  13.  
  14. if ~show( 'L', "rexxserdev.library" ) then do
  15.    if addlib( 'rexxserdev.library', 0, -30, 0 ) then
  16.       say 'added rexxserdev.library'
  17.    else do;
  18.       say 'support library not available'
  19.       exit 10
  20.       end
  21.    end
  22.  
  23. say
  24. say serid()
  25. libaddr = serlibbase()
  26. say 'serial library base =' libaddr
  27.